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38 DEELA ; Detailed Current Edit History 


(2) 
(3) 
(4) DECLARATION STHSIMIN, MTHSAMIN1 
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MTHSMING IMIN1, JMIN1, and AMIN] functions 16-SEP-1984 01:47:02 VAX/VMS Macro V04-00 Page Mtl 
1-002 a iset} 94 336:26 PRANTL RETATURING MAR: 1 ° Sy! 
TITLE mTHsAyNt IMIN1, JMIN1 and AMIN1 functions MT! 
SIDENT /1-002/ ; File: MTHMIN].MAR MTP 


MARBAARAALAAAAALALALALSALA ALA ELAS ARERR ESSERE ERE R EERE ER SESE EEE EEE 


i 
5 is . 
$ i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . PSE 
1 - ALL RIGHTS RESERVED. . a 
i] 11 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * a) 
3 1 3* ONLY IN ACCORDANCE WITH E ERM F SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY THER * 
: 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY SI 
15 ;* HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE JS HEREBY * 
99 16 be TRANSFERRED. : Phi 
009 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * se 
00 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * In 
44 y : CORPORATION. ‘ aa 
0000 ¢ i* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * Sy! 
44 2 be SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 4 
: Psi 
$8 i 1 peaenoedeneaeseseneesenereneesenueenonesescnneoonnenesnneeosneeneoneeesenes ere 
000 8: j 
000 9 ; FACILITY: MATH LIBRARY The 
000 p++ 18) 
$99 1 ; ABSTRACT: The 
00 § : This module contains the minimum value functions which take 17! 
308 ? ; floating-point arguments. Or 
000 5; 
00S 
BS 3 VERSION: 0 ne 
re 3 HISTORY: — 
09 4¢ ; AUTHOR: * 
0 $2 : Jonathan M. Taylor, 12-JUL-77: Version 0 0 | 
p 45 + MODIFIED BY: The 
9 “9 : MA 
0 48 ; 


rg 


norco 


re| 


IMIN}, JMIN1, AMIN1 func 1 4 AX/VMS Macro V04-00 P 
HISTORY: Datel bed turreue pions wi.. grea 18Be FTSZ 398 FAXAWES Bacco ote omans1 P89 (8) 
7 ~SBTTL HISTORY ; Detailed Current Edit History 
7 : Edit History for Version 0 of MTHMIN! 
5 “4 = Remove MTHSFLAG_JACKET. TNH g2envu -78 
$0 $i a3 GS Grdake ceteke soctet ate enoct a7 tice. JBS 16-NOV-78 
eu = Add "to the PSECT dir r notice. ~ = 
0000 58: 1-002 - Add '." to the PSECT aang. copy" ant 22-DEC-78 


mgm Bethand tial: 

7 

oe 

i 

es 

19 : 

ae 

6 74: 

By g 3 

33 - 3 

0 78 ; 
00000000 79 

ae 

$000 é : 

0000 : 

0000 4; 

$33 

ts | 

$000 9; 


dD. 7 
AMIN1 functions 16-SEP-1984 91: 7308 mes Mac 
=-SEP-1984 4 SR 


~SBTTL DECLARATIONS 


INCLUDE FILES: 
oerr.mar 


EXTERNAL SYMBOLS: 
NONE 


MACROS: 
NONE 


PSECT DECLARATIONS: 
-PSECT _MTHSCODE 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


6 
1:26: MTHRTL.SRC 


PIC, SHR, LONG, EXE, NOWRT 


ro V04-00 
JMTHMIN1.MAR;1 


rod 


MT! 


gota | 
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ATHSMINI IMIN1, JMINI, and AMIN1 functions 16-SEP-1984 01:47:0 AX/VMS Macro V04-00 Page 4 
1-002 MTHSIMINI, mfH JMINI, MTHSAMINT sets 7 9:35:26 POT ANTE. SAE IRTHMENG MAR: 1 . (4) 
~SBTTL MTHSIMIN1, MTHSJMIN1, MTHSAMINI 
p44 
¢ 3; FUNCTIONAL DESCRIPTION: 
3 Use routine MINF to compute the minimum of n arguments, 
$ ; n is greater than or equal to 1. Return the result converted | 
8 3 to the proper type. 
100 ; CALLING SEQUENCE: 
101 ; nimum.ww.v = MTHSIMIN (Carg.rf.r)) 
1 § 3 Minimum.wl.v = MTHSJMIN] ({arg.rf.r)) 
: 7 3 Minimum.wf.v = MTHSAMINI (darg.rf.rd) 
ae 
0 1 ; 3; INPUT PARAMETERS: 
1 5 5 The n parameters are single-precision floating-point values 
1 : and are call-by-reference. 
000 19 3 
090 11 3; IMPLICIT INPUTS: 
0 113 ; NONE 
00 114 ; 
000 115 ; OUTPUT PARAMETERS: 
000 118 : NONE 
4 117 ; 
00 118 ; IMPLICIT OUTPUTS: 
4 119 ; NONE 
000 120 ; 
000 121 ; COMPLETION CODES: 
8 1 § 3 NONE 
00 123 ; 
44 124 ; SIDE EFFECTS: 
4 ! 33 Reserved Operand and Integer Overflow exceptions can occur. 
000 159 
0 128 ;-- 
0 129 
0 130 
0 131 
0 1 § 
400: 0 1 ENTRY MTHSIMINI, “M<IV> 
11 1 134 MINF ; RO = min ar 
50 50 4&4 135 CVTFW RO, RO 3; INTEGER*2 i 
04 7 ! § RET 
40 1 8 -ENTRY MTHSJMINI, “M<IV> 
09 (1 A 1 BSB NF : RO = min ar 
50 50 4A Cc 140 CVTFL RO, RO 3 INTEGER*4 i 
04 of 123 RET 
000 19 128 ENTRY MTHSAMINI, aM<> 
1) a | 1 144 BSB MINF ; RO = min arg 
04 14 145 RET 
1 166 
1 147 ;¢ 


ono -u—0 OO 


Wino" Ou 


F 7 
twSORINT ATHSARINY "SSEP=1986 91:36:25 EATHNTL. SRESRTMMINGmaR;1 "28° (2) = 


i ; MINF returns smallest of the REAL*4 args. 

1 eo 

151 MINF: 

1 § MOVZBL (AP), R1 ; R1 = number of orgs 

1 TSTL (AP) + ; AP => first arg adr 

154 18 MOVF aie RO ; get trial min 

155 BRB $ 3 shock arg count 

1 § 2s CMPF @0(AP),RO ; if this arg is less then trial min 
1 BLSS 1$ ; then it becomes trial min 
138 TSTL (AP) + 3; else ignore it 

159 3$ SOBGTR R1, 2$ ; check arg count 

160 RSB 

163 

188 ~ END 


ea ele 
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MTHSAINI IMIN], JMIN1, and AMIN! functi 16-SEP-1984 01:47: AX/VMS M v04-00 P 
Symbol table RRS Ry -S ba 1984 94535 :28 PRT ANTE SREIRTHMENG MARS 1 — (2) Ta 
MINE 15 R 1 
MTHSAMINI 10 RG 1 
MTHSIMINI RG 1 
MTHSJAINI RG 1 

foerwoeoen meme aaea dy 

! Psect synopsis ! 

ere ecoce nen n set eo eat 
PSECT name Allocation PSECT No. Attributes 
e Ss . 4444 ( 9. 39 ( 9-3 NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0 B (= 43.) ( es PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 

deerme eoroseecwee ec e wc ecm oa $ 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization H :00: 19 0:00:01.50 
processing 133 : 3: 5 0:00:03.54 
pees | cant a :00:00.4 3 0:02.71 
able so :00:00. :00:00. 

Pass 44 8; 8; . Q: 8: 4:39 
Symbol table output Q: 3: 0 es Pe 
Psect synopsis output Ba: :00.0 0: 8: 0.0 
Cross-reference output 0:00: 2 0:00:00.0 
Assembler run totals 28 00:00:01. 0:00:09.4 


The working set Limit was 750 pages. 

1762 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local an local symbols. 
165 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


$row oscn ee cee es eee se ees eeeee } 


! Macro Library statistics ! 


foe ter ener ene wen ee er eno wocawe ¢ 


Macro Library name Macros defined 
~$255SDUA28: (SYSLIBISTARLET.MLB; 2 SAI AT 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHMIN1/OBJ=OBJ$:MTHMIN1 MSRC$:MTHMIN1/UPDATE=(ENHS:MTHMINT) 


ORPORATION 
OPRIETARY 
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